home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / memdump828 ins.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  51 lines
  1. 10 PRINT"[147][144]";:POKE53281,12:POKE53280,12:PRINTCHR$(14)
  2. 20 FORI=1TO23
  3. 30 READA$
  4. 40 IFA$="[157]"THENGOSUB80:END
  5. 50 PRINTA$
  6. 60 NEXT
  7. 70 GOSUB80:GOTO20
  8. 80 PRINT"      PRESS A KEY TO CONTINUE[146]";
  9. 90 GETB$:IFB$=""THEN90
  10. 100 PRINT"[147]":RETURN
  11. 10000 DATA"
  12. 10010 [131]"         (null)EMORY STR$UMP 828
  13. 10020 DATA"               BY
  14. 10030 [131]"         (null).MID$.(null)OZAKIEWICZ
  15. 10040 DATA"
  16. 10050 [131]"(null)RINT OUT THE LEFT$EXADECIMAL AND THE 
  17. 10060 DATA"[195]OMMODORE [193][211][195][201][201] VALUES OF ANY MEMORY 
  18. 10070 [131]"BLOCK.
  19. 10080 DATA"
  20. 10090 [131]"(null)EMORY STR$UMP 828 IS A SMALL MACHINE 
  21. 10100 DATA"LANGUAGE PROGRAM THAT IS SUPPLIED AS A 
  22. 10110 [131]"PEEKATN(null)RIGHT$LEN LOADER SO THAT YOU CAN ADD IT TO 
  23. 10120 DATA"YOUR OWN PROGRAMS IF YOU DESIRE. [201]T 
  24. 10130 [131]"RESIDES IN MEMORY IN THE CASSETTE 
  25. 10140 DATA"BUFFER STARTING AT ADDRESS 828.
  26. 10150 [131]"
  27. 10160 DATA"[212]O DISPLAY THE MEMORY BLOCK OF 
  28. 10170 [131]"INTEREST, POKE THE ADDRESS OF THE START
  29. 10180 DATA"OF THE BLOCK INTO ADDRESSES 3 AND 4. 
  30. 10190 [131]"(null)HE ADDRESS MUST BE IN LOW BYTE/HI BYTE
  31. 10200 DATA"ORDER.
  32. 10210 [131]"
  33. 10220 DATA"[208]OKE THE ADDRESS OF THE END OF THE 
  34. 10230 [131]"BLOCK INTO ADDRESSES 5 AND 6.
  35. 10240 DATA"
  36. 10250 [131]"(null)SE THE PEEKATN(null)RIGHT$LEN COMMAND (null)(null)(null)828 TO CAUSE 
  37. 10260 DATA"THE MEMORY BLOCK TO BE DUMPED TO THE 
  38. 10270 [131]"CURRENT OUTPUT DEVICE.
  39. 10280 DATA"
  40. 10290 [131]"(null)ALUES FROM 0-31 AND FROM 128-159 WILL 
  41. 10300 DATA"HAVE A PERIOD '.' SHOWN INSTEAD OF A 
  42. 10310 [131]"LENOMMODORE ATN(null)LENRIGHT$RIGHT$ REPRESENTATION.
  43. 10320 DATA"
  44. 10330 [131]"
  45. 10340 DATA"
  46. 10350 [131]"                   (null)IKE (null)OZAKIEWICZ
  47. 10360 DATA"                   175 [211]HARON [196]R.
  48. 10370 [131]"                   (null)OCHESTER (null)(null)    (null)(null)ATN
  49. 10380 DATA"                   14626
  50. 10390 [131]"CMD
  51.